Sacred & Secular/Sacred and Secular.iso/pc/movies/shared.dir/05029_Script_movie script

Text File | 1996-04-03 | 32KB | 1,072 lines

global firstpan,firstsnd,guidei
global currentcast,firstincr,endincr
global spritevis,popuptoggle
global wherefrom,onPics,visicon,timeicon,globeicon,icon
global soundcastno,picloclist2,comingfrom
global vispiclist,gRow,gCol,gindex,narron,musicon
global timepiclist1,timepiclist2,timepiclist3,timepiclist4
global guidelist1,guidelist2,guidelist3,guidelist4,guidelist5
global geoorder,visorder,timeorder,sndfilename,sndfileno
global gskip,frame,frame2
global sndbitelist,soundpathnarr,soundpathbed,soundpathmix,soundpath
global gSndList
global zoomcast,vissndcnt,guidelist,music2on

on hilitePeru2Pic
  --dmd   set the visible of sprite 16 to false
  -- dmd  set the visible of sprite 17 to false
  set onpics = 0
  set vissndcnt = 0
  --dmd if rollover(18) then set the visible of sprite 17 to true
  --dmd  if rollover(19) then set the visible of sprite 16 to true

  set the visible of sprite 17 to rollover(19)
  if not rollOver(19) then
    if rollover(6) then moveframe 6,1361,497,201
    else if rollover(20) then moveframe 20,1374,497,201
    else if rollover(11) then moveframe 11,1393,497,201
    else if rollover(7) then moveframe 7,1340,497,201
    else if rollover(12) then moveframe 12,1337,497,201
    else if rollover(9) then moveframe 9,1342,497,201
    else if rollover(21) then moveframe 21,1303,497,201
    else if rollover(13) then moveframe 13,1385,497,201
    else if rollover(22) then moveframe 22,1386,497,201
    else if rollover(14) then moveframe 14,1364,497,201
    else if rollover(10) then moveframe 10,1307,497,201
    else if rollover(8) then moveframe 8,1366,497,201
    else if rollover(15) then moveframe 15,1397,497,201
    else if rollover(23) then moveframe 23,1370,497,201
    else if rollover(25) then moveallframes
  end if

  if not onPics then
    checkghostrollover
    set the locH of sprite 2 to -640
    set the locH of sprite 3 to -640
    set the locH of sprite 4 to -640
    set the locH of sprite 5 to -640
  end if
end hilitePeru2Pic
on hilitePeru1Pic thev

  if not rollover(20) then set the visible of sprite 24 to false
  set rolloverv = thev
  set onpics = 0

  set the visible of sprite 17 to rollover(19)
  if not rollOver(19) then
    if rollover(6) then moveframe (6,1373,406,44)
    else if rollover(11) then moveframe (11,1358,534,169)
    else if rollover(14) then moveframe (14,1359,534,169)
    else if rollover(10) then moveframe (10,1377,432,100)
    else if rollover(7) then moveframe (7,1382,397,49)
    else if rollover(15) then moveframe (15,1390,563,204)
    else if rollover(12) then moveframe (12,1345,541,173)
    else if rollover(9) then moveframe (9,1357,541,173)
    else if rollover(13) then moveframe (13,1316,417,73)
    else if rollover(8) then moveframe (8,1328,428,89)
    else if rollover(21) then movesevframes (0,rolloverv,21,406,44,[6],2)
    else if rollover(22) then whatcity(1,rolloverV)
    else if rollover(23) then whatcity(2,rolloverV)
    else if rollover(25) then movesevframes (0,rolloverv,25,548,226,[10],2)
    else if rollover(20) then
      set the regpoint of cast 1335 = point(0,0)
      set cw = the width of cast 1335
      set ch = the height of cast 1335
      set the castnum of sprite 2 to 1335
      set the rect of sprite 2 = rect(0,33,0+cw,33+ch)
      set the locH of sprite 4 to 428
      set the locV of sprite 4 to 89
      set the locH of sprite 5 to -640
      set the visible of sprite 24 to true
      set onPics = 1

      --move frames according to city rollover
    end if

  end if

  if not onPics then
    checkghostrollover
    set the locH of sprite 2 to -640
    set the locH of sprite 4 to -640
    set the locH of sprite 5 to -640
  end if
end hilitePeru1Pic
on whatcity box,rolloverv
  if box = 1 then
    if rolloverv < 91 then
      movesevframes (box,rolloverv,22,417,73,[14],2)
    else
      if rolloverv < 109 then
        set the visible of sprite 24 to true
        movesevframes (box,rolloverv,22,428,89,[15],2)
      else
        movesevframes (box,rolloverv,22,432,100,[9],2)
      end if
    end if
  end if

  if box = 2 then
    if rolloverv < 177 then
      movesevframes (2,rolloverv,23,534,169,[7,8],2)
    else
      if rolloverv < 194 then
        movesevframes (2,rolloverv,23,541,173,[12,13],2)
      else
        movesevframes (2,rolloverv,23,563,204,[11],2)
      end if
    end if
  end if
end whatcity
on hilitePeru3Pic thev
  --  set the visible of sprite 16 to false
  --  set the visible of sprite 17 to false
  set rolloverv = thev
  set onpics = 0
  set the visible of sprite 17 to rollover(19)
  if not rollOver(19) then
    if rollover(12) then moveframe (12,1324,481,190)
    else if rollover(8) then moveframe (8,1362,481,190)
    else if rollover(11) then moveframe (11,1319,548,226)
    else if rollover(6) then moveframe (6,1353,455,143)
    else if rollover(13) then moveframe (13,1325,500,215)
    else if rollover(9) then moveframe (9,1327,475,186)
    else if rollover(7) then moveframe (7,1348,455,143)
    else if rollover(10) then moveframe (10,1311,482,199)
    else if rollover(14) then moveframe (14,1344,596,228)
    else if rollover(15) then movesevframes (0,rolloverv,15,455,143,[9,12],3)
    else if rollover(20) then movesevframes (0,rolloverv,20,397,49,[8],3)
    else if rollover(21) then movesevframes (0,rolloverv,21,481,190,[6,7],3)
    else if rollover(22) then movesevframes (0,rolloverv,22,475,186,[11],3)
    else if rollover(23) then movesevframes (0,rolloverv,23,482,199,[13],3)
    else if rollover(24) then movesevframes (0,rolloverv,24,500,215,[10],3)
    else if rollover(25) then movesevframes (0,rolloverv,25,596,228,[14],3)
  end if

  if not onPics then
    checkghostrollover
    set the locH of sprite 2 to -640
    set the locH of sprite 4 to -640
    set the locH of sprite 5 to -640
  end if
end hilitePeru3Pic


on moveframe rollspr,textno,cityH,cityV
  if textno <> 0 then
    if char 1 to 2 of comingfrom = "US" then positiontext (textno,180,8)
    else if comingfrom = "Mexico1" then  positiontext (textno,14,41)
    else if comingfrom = "Greece1" then positiontext (textno,0,30)
    else if comingfrom = "Egypt1" then  positiontext (textno,100,12)
    else if comingfrom = "UK1" then positiontext (textno,2,30)
    else positiontext (textno,0,33)
  end if

  set the locH of sprite 4 to cityH
  set the locV of sprite 4 to cityV
  set the locV of sprite 5 = the locV of sprite rollspr
  set the locH of sprite 5 = the locH of sprite rollspr
  set onPics = 1
end moveframe
on positiontext textno,left,top
  --put ">>>positiontext " & textNo
  set the regpoint of cast textno = point(0,0)
  set cw = the width of cast textno
  set ch = the height of cast textno
  set the castnum of sprite 2 to textno
  set the rect of sprite 2 = rect(left,top,left+cw,top+ch)
end positiontext

on moveallframes
  set the locH of sprite 4 to 497
  set the locV of sprite 4 to 201
  updatestage
  turnpuppet (true,[6,7,8,9,10,11,12,13,14,15,20,21,22,23])
  setframes ([6,7,8,9,10,11,12,13,14,15,20,21,22,23])
  updatestage
  repeat while rollover(25)
    nothing
  end repeat
  turnpuppet (false,[6,7,8,9,10,11,12,13,14,15,20,21,22,23])
end moveallframes
on setframes sprlist
  repeat with i in sprlist
    set the castnum of sprite i to frame
  end repeat
end setframes

on movesevframes box,rolloverv,rollno,cityH,cityV,sprlist,page
  --highlight city
  set the locH of sprite 4 to cityH
  set the locV of sprite 4 to cityV
  UPDATESTAGE
  -- turn puppets on
  if page = 2 then
    set puppetlist = [6,7,8,9,10,11,12,13,14,15,20]
  else
    set puppetlist = [6,7,8,9,10,11,12,13,14,15,20,21,22,23]
  end if
  turnpuppet (false,puppetlist)
  turnpuppet (true,sprlist)
  -- change box to a frame
  setframes sprlist
  repeat while rollover(rollno)
    if box > 0 then
      checkmousepos(box,rolloverv)
    end if
    go the frame
  end repeat
  turnpuppet (false,sprlist)
end movesevframes
on checkmousepos box,rolloverv
  set thev = the mouseV
  if thev <> rolloverv then whatcity(box,thev)
end

on turnpuppet  onoff,sprlist
  repeat with i in sprlist
    puppetsprite i,onoff
  end repeat
end turnpuppet

on GoCaptionPeru castno
  CURSOR 4

  --  puppetsprite 4,false
  --  puppetsprite 5,false

  set currentcast = castno

  set movieName = "" & (castNo mod 100)
  if length(movieName) = 1 then set movieName = "0" & movieName
  set movieName = movieName & ".DIR"

  go to frame (icon-5011) of movie movieName

  puppetsprite 7,true
  puppetsprite 4,true
  puppetsprite 2,true
  puppetsprite 3,true

  set the regpoint of cast 10 = point(0,0)
  set the rect of sprite 2 = rect(16,23,539,403)
  set the castnum of sprite 2 to 10
  Set the ink of sprite 2 to 0
  set the locV of sprite 2 to 15
  set the locH of sprite 2 to 24

  set the regpoint of cast 1 = point(0,0)
  set the rect of sprite 3 = rect(16,23,539,403)
  set the castnum of sprite 3 to 1
  Set the ink of sprite 3 to 0
  set the locV of sprite 3 to 15
  set the locH of sprite 3 to 24
  set the forecolor of sprite 3 = 255
  set the backColor of sprite 3 = 0


  set phototext = 5
  set the regpoint of cast phototext = point(0,0)
  set cw = the width of cast phototext
  set ch = the height of cast phototext

  set the foreColor of sprite 7 = 255
  set the backColor of sprite 7 = 0

  set the castnum of sprite 7 = phototext

  -- dmd   set the rect of sprite 7 = rect(10,400,10+cw,400+ch)
  set the rect of sprite 7 = rect(7,408,7+cw,408+ch)

  Set the ink of sprite 7 to 0

  --  set the castnum of sprite 3 to icon
  --  set the rect of sprite 3 = rect(579,2,639,294)

  if narron then
    set the visible of sprite 22 to false
  else
    set the visible of sprite 22 to true
  end if
  if musicon = 0 then
    set the visible of sprite 27 = 1
  else
    set the visible of sprite 27 = 0
  end if
  --dmd set the visible of sprite 16 to false
  set the visible of sprite 17 to false
  --  go "CaptionPic"

  cursor -1

end GoCaptionPeru
on GoCaption2
  cursor 4
  puppetsprite 1,false
  puppetsprite 2,true
  puppetsprite 3,true
  puppetsprite 4,true
  puppetsprite 7,true

  set the castNum of sprite 2 = 0
  set the castNum of sprite 3 = 0
  set the rect of sprite 2 = rect(23, 15, 539, 402)
  set the rect of sprite 3 = rect(23, 15, 539, 402)

  updateStage
  -- rect(left,top,right,bottom)

  pauseQTSound

  unLoadMem (the castNum of sprite 2)

  set the regpoint of cast 1 = point(0,0)

  set the rect of sprite 2 = rect(23, 15, 539, 402)

  --  set the castnum of sprite 2 to currentcast
  set the castnum of sprite 2 to 10
  Set the ink of sprite 2 to 0
  set the locH of sprite 2 to 24
  set the locV of sprite 2 to 15


  set the castnum of sprite 3 to 1
  Set the ink of sprite 3 to 0
  set the locH of sprite 3 to 24
  set the locV of sprite 3 to 15
  set the forecolor of sprite 3 = 255
  set the backColor of sprite 3 = 0

  set the castnum of sprite 4 to icon
  set the rect of sprite 4 = rect(579,1,639,293) -- rect(579,2,639,294)

  --  set phototext = currentcast + 1100
  set phototext = 5
  set the regpoint of cast phototext = point(0,0)
  set cw = the width of cast phototext
  set ch = the height of cast phototext

  set the foreColor of sprite 7 = 255
  set the backColor of sprite 7 = 0

  set the castnum of sprite 7 = phototext
  -- dmd  set the rect of sprite 7 = rect(10,400,10+cw,400+ch)
  set the rect of sprite 7 = rect(7,408,7+cw,408+ch)
  Set the ink of sprite 7 to 0


  --dmd set the visible of sprite 16 to false
  set the visible of sprite 17 to false
  go "CaptionPic"
  cursor -1

  if not checksndfile() then unPauseQTSound


end GoCaption2

on checksndfile

  if comingfrom = "pictext" then
    set y = sndfileno
  else
    set y = currentcast - 300
  end if

  if getgQTNum() <> y then
    stopQTSound
    sound stop 1
    playsndfile
    --put ">>>CHANGE SOUND"
    return 1
  end if

  return 0
end checksndfile


on playsndfile
  global gMixPath, gNarrPath, gBedPath, gQTCastNum

  set y = "0" & (currentcast - 300)
  set l = length(y)
  set y = char l-1 to l of y
  sound stop 1
  set playsound = 1

  if musicon and narron then
    set sndfilename = gMixPath & "mix"&y&".mov"
  else
    if musicon then
      set sndfilename = gBedPath & "bed"&y&".mov"
    else
      if narron then
        set sndfilename = gNarrPath & "narr"&y&".mov"
      else
        set playsound = 0
      end if
    end if
  end if

  --put ">>> movie filename" && sndfilename

  stopQTSound

  if playsound then
    playQTSound sndFileName
  else
    set the fileName of cast gQTCastNum = "TEMPLATE.MOV"
  end if


  --  if playsound then sound playfile 1,sndfilename
end playsndfile

on GoFullPic
  CURSOR 4
  --set x = currentcast

  -- dmd don't use names if not necessary... too slow
  --set CurrPicName = the name of cast x

  --puppetsprite 1,true
  puppetsprite 2,1
  puppetsprite 3,1
  puppetSprite 4,1


  set the locH of sprite 7 to -640

  set the locH of sprite 4 to -640
  puppetsprite 4,false

  --   set x = currentcast + 100
  --  set the castnum of sprite 2 to x

  global gTimerCast
  set gTimerCast = 0

  go "fullPic"
  set the regpoint of cast 10 = point(0,0)
  set the rect of sprite 2 = rect(0,0,640,480)
  set the locH of sprite 2 to 0
  set the locV of sprite 2 to 0
  set the castnum of sprite 2 to 10

  set the regpoint of cast 2 = point(0,0)
  set the rect of sprite 3 = rect(0,0,640,480)
  set the locH of sprite 3 to 0
  set the locV of sprite 3 to 0
  set the castnum of sprite 3 to 2
  cursor -1
end GoFullPic


-- dmd replacement
on simulaterollover2
  global gVisIndex, gSndBitePath
  cursor -1

  if gVisIndex = 0 then   set the locV of sprite 2 = -5000
  checkghost3

  --
  --
  -- Set visNum to 1 or 2
  --
  set visNum = 1 + (marker(0) <> label("Visual1"))

  set col = 0
  repeat with i = 8 to 16
    if rollOver(i) then
      set col = i - 7
      exit repeat
    end if
  end repeat

  if col = 0 then
    set gVisIndex = 0
    exit
  end if

  set v = the mouseV

  set yellowBoxX = the left of sprite (i)

  --
  --
  -- Col 3 of vis index 2 is special (see graphic)
  --
  if visNum = 2 and col = 3 then
    set h = the mouseH
    if v < 52 then
      set gVisIndex = 0
      exit
    end if

    if v > 107 then

      if h < 169 then
        set gVisIndex = 0
        exit
      end if
      set yellowBoxX = 168
    else
      if h > 212 then
        set gVisIndex = 0
        exit
      end if
      set v = v - 11
      set yellowBoxY = 51
    end if
  end if

  set row = -1

  set r = v - the top of sprite (col+7)
  set n = 55
  repeat with i = 0 to 5
    if r < n then
      set row = i
      exit repeat
    end if
    if r < n + 9 then exit repeat
    set n = n + 9 + 55
  end repeat

  if row = -1 then
    set gVisIndex = 0
    exit
  end if

  if yellowBoxY = 0 then ¨
set yellowBoxY = n - 55 + the top of sprite (col+7)


  -- put ">>> row = " & row && " col = " & col


  if visNum = 1 then
    set sndincr = 0
  else
    set sndincr = 54
  end if

  set i = (row * 9) + col + sndincr
  if i = gVisIndex then exit

  set gVisIndex = i

  set incr = getat(sndbitelist,gVisIndex)
  if incr = 0 then exit

  set the locV of sprite 2 = yellowBoxY
  set the locH of sprite 2 = yellowBoxX

  set gRow = row + 1 + 6*(visNum-1) -- add 6 rows for second screen
  set gCol = col

  if not music2on then exit

  set soundFileName = gSndBitePath & getAt(gSndList,incr-1198)

  if soundbusy(1) then sound stop 1

  global gVolume

  sound playFile 1,soundFileName
  set the volume of sound 1 = gVolume *0.66

end simulaterollover2

--on simulaterollover
--  set getH = the mouseH
--  if comingfrom = "visual1" then
--    set picloclist = [76,141,206,271,336,401,466,531,596]
--  else
--    set picloclist =  [94,159,224,289,354,419,484,549,614]
--  end if
--  if rollover(3) then findpic(1,getH,picloclist)
--  if rollover(4) then findpic(2,getH,picloclist)
--  if rollover(5) then findpic(3,getH,picloclist)
--  if rollover(6) then findpic(4,getH,picloclist)
--  if rollover(8) then findpic(5,getH,picloclist)
--  if rollover(9) then findpic(6,getH,picloclist)
--  checkghost3
--end simulaterollover
--
--on findpic rowno,getH,picloclist
--  repeat with x = 1 to 9
--    set rightend = getat(picloclist,x)
--    set leftend = rightend - 55
--    if getH < rightend then
--      checkbox(rowno,x,leftend)
--      set gRow  = rowno
--      set gIndex = x
--      set x = 9
--    end if
--  end repeat
--  go the frame
--end findpic
--
--on checkbox rowno,x,leftend
--  --check for non-pic squares
--
--  set VISMAX = 1
--
--  set gskip = 0
--  if comingfrom = "visual1" then
--    checkbox2 (rowno,x,[1:1,2:1,5:6,6:6])
--  else
--    checkbox2 (rowno,x,[1:6,2:3,2:6,3:3])
--  end if
--  if not gskip then
--    -- position box
--    set the locH of sprite 2 to leftend
--    if rowno = 5 or rowno = 6 then
--      set the locV of sprite 2 = the locV of sprite (rowno+3)
--    else
--      set the locV of sprite 2 = the locV of sprite (rowno+2)
--    end if
--    -- sound in memory
--    if comingfrom = "visual1" then
--      set sndincr = 0
--    else
--      set sndincr = 54
--    end if
--    set i = ((rowno - 1) * 9) + x + sndincr
--    set incr = getat(sndbitelist,i)
--    if incr <> 0 then
--      set soundFileName = getAt(gSndList,incr-1198)
--
--      --set sndname = the name of cast incr
--      if music2on then
--        if not soundbusy(1) and vissndcnt < VISMAX then
--          --puppetsound sndname
--          sound playFile 1,soundFileName
--          set vissndcnt = vissndcnt + 1
--          set soundcastno = incr
--        else
--          if incr <> soundcastno then
--            sound stop 1
--            --puppetsound sndname
--            sound playFile 1,soundFileName
--            set soundcastno = incr
--            set vissndcnt = 1
--          end if
--        end if
--        updatestage
--      end if
--    end if
--  end if
--end checkbox
--
--on checkbox2 rowno,x,blankboxlist
--  repeat with i = 1 to 4
--    set blankrow = getpropat(blankboxlist,i)
--    set blankindex = getat(blankboxlist,i)
--    if rowno = blankrow and x=blankindex then
--      set gskip = 1
--      set i = 4
--    end if
--  end repeat
--end checkbox2

on getvispic vispic2
  --unload
  unloadmem
  --  puppetsound 0
  --  puppetsprite 1,false
  --  repeat with i = 3 to 5
  --    puppetsprite i,false
  --  end repeat
  -- dmd  if vispic2 then set gRow =  gRow + 6
  -- dmd  set castno = getat(getat(vispiclist,gRow),gIndex)
  if gRow = 0 or gCol = 0 then exit

  set castno = getat(getat(vispiclist,gRow),gCol)
  if castno <> 000 then
    --dmd set the regpoint of cast castno = point(0,0)

    set the ink of sprite 2 to 0

    --dmd set the rect of sprite 2 = rect(16,23,539,403)

    set the visible of sprite 27 to false
    GoCaptionPeru castno
  end if
end  getvispic

on searchforPic PicLoc,theH,theV,LH,timepiclist
  global gTimeIndex, gTimeLinePos

  set gTimeLinePos = the locH of sprite 2

  --put ">>>searchForPic: " & picLoc && theH && theV && LH

  set gotpic = 0
  set items = count(timepiclist)
  set PicLOC = PicLOC + 3 -- dmd was -80 now +3
  repeat with x = 1 to items
    set leftlimit = getpropat(timepiclist,x)
    set rightlimit = leftlimit + 60
    if PicLOC > leftlimit and PicLOC < rightlimit then
      set gotpic = 1
      set castno = getat(timepiclist,x)
      updatestage
      set indx = x
      set x = items
    end if
  end repeat
  if gotpic then
    puppetsprite 5,false
    puppetsprite 6,false
    set x = the castnum of sprite 2
    unloadmem x
    --
    --
    -- DMD: Check for 303 or 368, both are modern and ancient, so appear
    -- twice on the timeline
    --
    if leftLimit > 4000 and (castNo = 303 or castNo = 368) then
      if castNo = 303 then
        set gTimeIndex = 87
      else
        set gTimeIndex = 78
      end if
    else
      set gTimeIndex = getPos(timeOrder, castNo)
    end if

    --dmd set the regpoint of cast castno = point(0,0)
    --dmd set the rect of sprite 2 = rect(16,23,539,403)
    GoCaptionPeru castno
  else
    set the locH of sprite 5 = -640
  end if
end searchforPic

on simulatetimeroll PLOC,LH

  --
  --
  -- Note that the use of "gotit" is wrong... it SHOULD be set
  -- as the result from the call to "timeRoll", which in fact
  -- really knows whether a picture was rolled-over.  Left
  -- in original form as an exhibit of what not to do... simple
  -- code review techniques would find such a problem -- DMD.
  --

  --put ">>>simulatetimeroll: " & PLOC && LH

  set gotit = 0
  if rollover(8) then
    set MV = the locV of sprite 8
    timeroll PLOC,MV,LH,timepiclist1
    set gotit = 1
  else
    if rollover(9) then
      set MV = the locV of sprite 9
      timeroll PLOC,MV,LH,timepiclist2
      set gotit = 1
    else
      if rollover(10) then
        set MV = the locV of sprite 10
        timeroll PLOC,MV,LH,timepiclist3
        set gotit = 1
      else
        if rollover(11) then
          set MV = the locV of sprite 11
          timeroll PLOC,MV,LH,timepiclist4
          set gotit = 1
        end if
      end if
    end if
  end if
  if not gotit then
    set the locH of sprite 5 = -640
    set the locH of sprite 6 = -640
  end if
end simulateroll

on timeroll PicLoc,MV,LH,timepiclist
  set items = count(timepiclist)
  set PicLOC = PicLOC + 3 -- dmd was -80 now +3
  repeat with x = 1 to items
    set leftlimit = getpropat(timepiclist,x)
    set rightlimit = leftlimit + 60
    if PicLOC > leftlimit and PicLOC < rightlimit then
      set leftbox = leftlimit - (-LH)
      set the locH of sprite 5 = leftbox - 2
      set the locV of sprite 5 = MV - 2
      set castno = getat(timepiclist,x)
      set timetitle = castno + 1200

      --put ">>> timeTitle" && timeTitle

      set the regPoint of cast timetitle = point(0,0)
      set the castnum of sprite 6 = timetitle
      set the locH of sprite 6 = 3
      set the locV of sprite 6 = 61
      updatestage
      set indx = x
      set x = items
    else
      --
      --
      -- Poor coding by first programmers... see code in calling routine,
      -- especially the variable "gotit".  I left this to show what I had
      -- to deal with in making this program REALLY work. The true costs
      -- were high, due to untested code or code written by more than one
      -- author (and little communication between them).
      --
      set the locH of sprite 6 to -640
      set the locH of sprite 5 to -640 -- added by DMD
    end if
  end repeat
end timeroll



on guidePics nextMovie
  global gGuidedTourInProgress

  set gGuidedTourInProgress = 1

  --  set x = count(guidelist) + 1
  set x = count(guidelist)


  set newMovie = 0

  if not voidP(nextMovie) then
    set newMovie = 1
    set guidei = guidei + nextMovie
    if guidei = 0 then
      set guidei = x+1 -- if movie 0, end tour
    end if
  else if guidei = 1 then
    set newMovie = 1
  else if the movieTime of sprite 48 >= the stopTime of sprite 48 then set newMovie = 1

  if newMovie then
    if guidei <= x then
      guidepics2  guidei
      set guidei = guidei + 1
    else
      stopQTSound
      sound stop 1
      puppetsprite 1,false
      --      set x = currentcast + 100
      set x = 2
      unloadmem x
      starttimer
      set gGuidedTourInProgress = 0

      go to frame "guide"   of movie "BRIDGES"
    end if
  end if

end guidePics

on checkmousedown
  if the mousedown  then
    if the doubleclick then
      dontpassevent
      return 0
    else
      return 1
    end if
  end if
end checkmousedown

on guidePics2 i
  global gMixPath

  --  set x = the name of cast (currentcast + 100)
  set x = the name of cast (2)
  unloadmem (the castNum of sprite 1)
  set currentcast = getat(guidelist,i)
  --set y = currentcast + 100

  set y = "0" & (currentcast - 300)
  set l = length(y)
  set y = char l-1 to l of y

  go to frame "FullPic" of movie (y & ".DIR")

  puppetSprite 3,1
  --set the regpoint of cast y = point(0,0)
  set the castnum of sprite 3 to 2
  set the locV of sprite 3 = 0
  set the locH of sprite 3 = 0

  puppetSprite 4,1
  puppetSprite 5,1
  puppetsprite 7,1
  set the locH of sprite 7 = -640


  set the castNum of sprite 5 = 5035 -- pink arrow
  set the locV of sprite 5 = 467
  set the locH of sprite 5 = 630
  set the type of sprite 5 = 1
  set the ink of sprite 5 = 8
  set the foreColor of sprite 5 = 255

  set the castNum of sprite 4 = 5034 -- pink arrow
  set the locV of sprite 4 = 467
  set the locH of sprite 4 = 10
  set the type of sprite 4 = 1
  set the ink of sprite 4 = 8
  set the foreColor of sprite 4 = 255

  --dmd set sndfilename = soundpathmix&"mix"&y&".aif"
  --sound playfile 1,sndfilename
  set sndfilename = gMixPath & "mix"&y&".mov"
  stopQTSound

  playQTSound sndFileName

  updatestage
end guidePics2


on hiliteUS1Pic
  set onpics = 0
  set chan24 = 0

  set the visible of sprite 17 to rollover(19)
  if not rollOver(19) then
    if rollover(6) then moveframe (6,1338,516,246)
    else if rollover(12) then moveframe (12,1394,534,86)
    else if rollover(7) then moveframe (7,1392,516,165)
    else if rollover(10) then moveframe (10,1349,569,106)
    else if rollover(8) then moveframe (8,1383,569,106)
    else if rollover(11) then moveframe (11,1351,534,86)
    else if rollover(9) then moveframe (9,1326,500,181)
    else if rollover(14) then movesevframes (0,0,14,516,246,[6],2)
    else if rollover(15) then movesevframes (0,0,15,534,86,[11,12],2)
    else if rollover(20) then movesevframes (0,0,20,516,165,[7],2)
    else if rollover(21) then movesevframes (0,0,21,569,106,[8,10],2)
    else if rollover(22) then movesevframes (0,0,22,500,181,[9],2)
    else if rollover(13) or rollover(23) then
      if rollOver(13) then positiontext (1360,180,8)

      set the locH of sprite 4 to 501
      set the locV of sprite 4 to 121
      set the locH of sprite 5 to -640
      set onPics = 1
      set chan24 = 1
    end if
  end if

  set the visible of sprite 24 = chan24

  if not onPics then
    checkghostrollover
    set the locH of sprite 2 to -640
    set the locH of sprite 4 to -640
    set the locH of sprite 5 to -640
  end if
end hiliteUS1Pic

on hiliteUS3Pic
  -- set the visible of sprite 24 to false
  --  set the visible of sprite 16 to false
  --  set the visible of sprite 17 to false
  set onpics = 0
  set the visible of sprite 17 to rollover(19)

  if not rollOver(19) then
    if rollover(7) then moveframe (7,1309,255,179)
    else if rollover(10) then moveframe (10,1310,255,179)
    else if rollover(11) then moveframe (11,1398,227,161)
    else if rollover(12) then moveframe (12,1322,225,137)
    else if rollover(8) then moveframe (8,1378,237,154)
    else if rollover(9) then moveframe (9,1339,252,155)
    else if rollover(6) then moveframe (6,1355,257,152)
    else if rollover(13) then moveframe (13,1336,226,49)
    else if rollover(14) then movesevframes (0,0,14,255,179,[7,10],2)
    else if rollover(15) then movesevframes (0,0,15,227,161,[11],2)
    else if rollover(20) then movesevframes (0,0,20,225,137,[12],2)
    else if rollover(21) then movesevframes (0,0,21,237,154,[8],2)
    else if rollover(22) then movesevframes (0,0,22,252,155,[9],2)
    else if rollover(23) then movesevframes (0,0,23,257,152,[6],2)
    else if rollover(25) then movesevframes (0,0,25,226,49,[13],2)

  end if

  if not onPics then
    checkghostrollover
    set the locH of sprite 2 to -640
    set the locH of sprite 4 to -640
    set the locH of sprite 5 to -640
  end if
end hiliteUS3Pic

on hiliteUS4Pic
  -- set the visible of sprite 24 to false
  --  set the visible of sprite 16 to false
  --  set the visible of sprite 17 to false
  set onpics = 0
  set the visible of sprite 17 to rollover(19)

  if not rollOver(19) then
    if rollover(6) then moveframe (6,1399,80,87)
    else if rollover(7) then moveframe (7,1306,84,80)
    else if rollover(8) then moveframe (8,1334,119,204)
    else if rollover(9) then moveframe (9,1341,78,96)
    else if rollover(10) then moveframe (10,1332,68,85)
    else if rollover(11) then moveframe (11,1313,119,204)
    else if rollover(12) then moveframe (12,1350,128,203)
    else if rollover(21) then movesevframes (0,0,21,80,87,[6],2)
    else if rollover(15) then movesevframes (0,0,15,84,80,[7],2)
    else if rollover(20) then movesevframes (0,0,20,119,204,[8,11],2)
    else if rollover(14) then movesevframes (0,0,14,78,96,[9],2)
    else if rollover(22) then movesevframes (0,0,22,68,85,[10],2)
    else if rollover(23) then movesevframes (0,0,23,128,203,[12],2)
  end if
  if not onPics then
    checkghostrollover
    set the locH of sprite 2 to -640
    set the locH of sprite 4 to -640
    set the locH of sprite 5 to -640
  end if
end hiliteUS4Pic
on hiliteUS2Pic
  -- set the visible of sprite 24 to false
  --  set the visible of sprite 16 to false
  --  set the visible of sprite 17 to false
  set onpics = 0
  set the visible of sprite 17 to rollover(19)

  if not rollOver(19) then
    if rollover(12) then moveframe 12,1372,305,158
    else if rollover(13) then moveframe 13,1356,291,155
    else if rollover(11) then moveframe 11,1331,366,179
    else if rollover(8) then moveframe 8,1330,372,177
    else if rollover(9) then moveframe 9,1304,430,92
    else if rollover(10) then moveframe 10,1323,407,210
    else if rollover(7) then moveframe 7,1371, 399,166
    else if rollover(6) then moveframe 6,1380,499,126
    else if rollover(14) then moveframe 12,0,305,158
    else if rollover(15) then moveframe 13,0,291,155
    else if rollover(20) then moveframe 11,0,366,179
    else if rollover(21) then moveframe 6,0,499,126
    else if rollover(22) then moveframe 8,0,372,177
    else if rollover(23) then moveframe 9,0,430,92
    else if rollover(25) then moveframe 10,0,407,210
    else if rollover(27) then moveframe 7,0,399,166
  end if

  if not onPics then
    checkghostrollover
    set the locH of sprite 2 to -640
    set the locH of sprite 4 to -640
    set the locH of sprite 5 to -640
  end if
end hiliteUS2Pic